home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / c / xw2.000 / xw2 / xw / samples / BASIC-PRINCIPLES / range-check.xwx < prev    next >
Encoding:
Text File  |  1994-12-05  |  902 b   |  26 lines
  1. % This sample shows how to
  2. % - create a float-object with complete range checking and default value
  3. % - create an additional object action. The "D" edit type implies editing
  4. %   a Double float number. After that, the macro "/xw/x/xbwstop.mta" is
  5. %   executed; this feature belongs to the VAR-Element "rqK"
  6. %   (Read-after-displaying-object-Queue-Macro)
  7.  
  8.  
  9. Malloc(90);
  10. @xbwstart(("range") ("bw") );
  11. wdw(TEST 3 4 27 7 StandardWDW);
  12. @window/gimmicks(TEST (" Range for floats") );
  13.  
  14. o(TEST01 D D  1 3 23 1 Standard);
  15. bg(TEST01 . 10 );
  16.   ff( ("%12.7f") ("[1/10N]") 10 );     % Display in          1/10[N]
  17.   d(M 1000.0 );                        % Max:    1000[N]
  18.   d(v 500.0 );                         % Default: 500[N]
  19.   d(m 1.0 );                           % Min:       1[N] (= 10/10[N])
  20.   cn( raK ("@xbwstop();") );           % After Edit: Macro to stop XbW
  21.   eg();
  22.  
  23. Message(("Project complete."));
  24. End();
  25.  
  26.